home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / baker's dozen 3 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  594b  |  24 lines
  1. 5 printchr$(147)chr$(5):poke53280,0:poke53281,0
  2. 10 v=1873:a=1:b=-40:c=-1:d=40:q=160:r=int(15*rnd(1))+1:s=54272
  3. 20 gosub200
  4. 30 poke1093,32
  5. 40 v=1215:a=-1:b=40:c=1:d=-40:r=int(15*rnd(1))+1
  6. 50 gosub200
  7. 60 poke1995,32
  8. 70 v=1893:a=-1:b=-40:c=1:d=40:r=int(15*rnd(1))+1
  9. 80 gosub200
  10. 90 poke1073,32
  11. 100 v=1191:a=1:b=40:c=-1:d=-40:r=int(15*rnd(1))+1
  12. 110 gosub200
  13. 120 poke2011,32
  14. 130 fort=1to1000:next:goto5
  15. 200 forp=1to10:pokev,q:pokev+s,r
  16. 210 n=1:forx=1ton:pokev+a,q:pokev+s,r:v=v+a:next
  17. 220 forx=1ton:pokev+b,q:pokev+s,r:v=v+b:next
  18. 230 n=n+1:forx=1ton:pokev+c,q:pokev+s,r:v=v+c:next
  19. 240 forx=1ton:pokev+d,q:pokev+s,r:v=v+d:next
  20. 250 n=n+1:forx=1ton:pokev+a,q:pokev+s,r:v=v+a:next
  21. 260 forx=1ton:pokev+b,q:pokev+s,r:v=v+b:next
  22. 270 nextp
  23. 280 return
  24.